home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_01 / arm_progs / Root < prev   
Unknown  |  1991-07-12  |  2.1 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0b f4 20 3e 52 | 6f 6f 74 0d 00 1e 04 0d |..... >R|oot.....|
|00000010| 00 28 0f de 20 63 6f 64 | 65 20 31 30 32 34 0d 00 |.(.. cod|e 1024..|
|00000020| 32 3e f1 20 22 43 61 6c | 63 75 6c 61 74 65 73 20 |2>. "Cal|culates |
|00000030| 74 68 65 20 72 6f 6f 74 | 20 6f 66 20 61 20 33 32 |the root| of a 32|
|00000040| 20 62 69 74 20 6e 75 6d | 62 65 72 20 69 6e 20 6d | bit num|ber in m|
|00000050| 61 63 68 69 6e 65 20 63 | 6f 64 65 22 0d 00 3c 04 |achine c|ode"..<.|
|00000060| 0d 00 46 0b 61 63 63 25 | 3d 31 39 0d 00 47 47 f4 |..F.acc%|=19..GG.|
|00000070| 20 74 68 69 73 20 6d 61 | 6e 79 20 62 69 74 73 20 | this ma|ny bits |
|00000080| 66 6f 72 20 64 65 63 69 | 6d 61 6c 20 70 61 72 74 |for deci|mal part|
|00000090| 20 28 6c 65 61 76 65 73 | 20 33 31 2d 61 63 63 25 | (leaves| 31-acc%|
|000000a0| 20 66 6f 72 20 69 6e 74 | 65 67 65 72 20 70 61 72 | for int|eger par|
|000000b0| 74 29 0d 00 50 04 0d 00 | 5a 04 0d 00 64 14 e3 20 |t)..P...|Z...d.. |
|000000c0| 70 61 73 73 3d 30 20 b8 | 20 32 20 88 20 32 0d 00 |pass=0 .| 2 . 2..|
|000000d0| 6e 04 0d 00 78 0b 6c 69 | 6e 6b 3d 31 34 0d 00 82 |n...x.li|nk=14...|
|000000e0| 09 73 70 3d 31 33 0d 00 | 8c 04 0d 00 96 0a 73 74 |.sp=13..|......st|
|000000f0| 65 70 3d 39 0d 00 a0 09 | 64 69 72 3d 38 0d 00 aa |ep=9....|dir=8...|
|00000100| 0a 72 6f 6f 74 3d 37 0d | 00 b4 25 63 6f 75 6e 74 |.root=7.|..%count|
|00000110| 3d 36 20 20 20 3a f4 20 | 69 6e 20 63 61 73 65 20 |=6   :. |in case |
|00000120| 77 65 20 67 65 74 20 73 | 74 75 63 6b 0d 00 be 0a |we get s|tuck....|
|00000130| 77 6f 72 6b 3d 35 0d 00 | c8 0a 74 65 6d 70 3d 34 |work=5..|..temp=4|
|00000140| 0d 00 d2 04 0d 00 dc 09 | 76 61 6c 3d 31 0d 00 e6 |........|val=1...|
|00000150| 0b 70 6f 77 65 72 3d 30 | 0d 00 f0 0b 50 25 3d 63 |.power=0|....P%=c|
|00000160| 6f 64 65 0d 00 fa 0d 5b | 4f 50 54 20 70 61 73 73 |ode....[|OPT pass|
|00000170| 0d 01 04 0c 2e 67 65 74 | 72 6f 6f 74 0d 01 0e 04 |.....get|root....|
|00000180| 0d 01 18 1b 3b 63 61 6c | 6c 69 6e 67 20 70 61 72 |....;cal|ling par|
|00000190| 61 6d 65 74 65 72 73 20 | 61 72 65 0d 01 22 04 0d |ameters |are.."..|
|000001a0| 01 2c 04 0d 01 36 4b 3b | 72 31 20 2d 20 74 68 65 |.,...6K;|r1 - the|
|000001b0| 20 6e 75 6d 62 65 72 20 | 74 6f 20 77 6f 72 6b 20 | number |to work |
|000001c0| 6f 75 74 20 74 68 65 20 | 73 71 75 61 72 65 20 72 |out the |square r|
|000001d0| 6f 6f 74 20 6f 66 20 28 | 70 6f 73 69 74 69 76 65 |oot of (|positive|
|000001e0| 20 6f 6e 6c 79 20 70 6c | 65 61 73 65 21 29 0d 01 | only pl|ease!)..|
|000001f0| 40 04 0d 01 4a 39 3b 6f | 6e 20 65 78 69 74 20 72 |@...J9;o|n exit r|
|00000200| 30 20 69 73 20 74 68 65 | 20 73 71 75 61 72 65 20 |0 is the| square |
|00000210| 72 6f 6f 74 20 28 73 68 | 69 66 74 65 64 20 6c 65 |root (sh|ifted le|
|00000220| 66 74 20 35 20 74 69 6d | 65 73 29 0d 01 54 04 0d |ft 5 tim|es)..T..|
|00000230| 01 5e 28 4d 4f 56 20 20 | 20 20 20 20 64 69 72 2c |.^(MOV  |    dir,|
|00000240| 20 20 20 20 20 23 31 20 | 20 20 20 20 20 20 3b 67 |     #1 |      ;g|
|00000250| 6f 69 6e 67 20 75 70 0d | 01 68 3f 4d 4f 56 20 20 |oing up.|.h?MOV  |
|00000260| 20 20 20 20 73 74 65 70 | 2c 20 20 20 20 23 31 30 |    step|,    #10|
|00000270| 32 34 20 20 20 20 3b 69 | 6e 69 74 69 61 6c 20 73 |24    ;i|nitial s|
|00000280| 74 65 70 20 6f 66 20 68 | 61 6c 66 20 74 68 65 20 |tep of h|alf the |
|00000290| 6e 75 6d 62 65 72 0d 01 | 72 18 4d 4f 56 20 20 20 |number..|r.MOV   |
|000002a0| 20 20 20 72 6f 6f 74 2c | 20 20 20 20 23 30 0d 01 |   root,|    #0..|
|000002b0| 7c 3b 4d 4f 56 20 20 20 | 20 20 20 63 6f 75 6e 74 ||;MOV   |   count|
|000002c0| 2c 20 20 20 23 31 30 30 | 30 20 20 20 20 3b 20 35 |,   #100|0    ; 5|
|000002d0| 30 30 20 74 72 69 65 73 | 20 61 6e 64 20 74 68 65 |00 tries| and the|
|000002e0| 6e 20 67 69 76 65 20 75 | 70 0d 01 86 04 0d 01 90 |n give u|p.......|
|000002f0| 0d 2e 72 6f 6f 74 6c 6f | 6f 70 0d 01 9a 04 0d 01 |..rootlo|op......|
|00000300| a4 23 4d 55 4c 20 20 20 | 20 20 20 77 6f 72 6b 2c |.#MUL   |   work,|
|00000310| 20 20 20 20 64 69 72 2c | 20 20 20 20 20 73 74 65 |    dir,|     ste|
|00000320| 70 0d 01 ae 23 41 44 44 | 20 20 20 20 20 20 72 6f |p...#ADD|      ro|
|00000330| 6f 74 2c 20 20 20 20 72 | 6f 6f 74 2c 20 20 20 20 |ot,    r|oot,    |
|00000340| 77 6f 72 6b 0d 01 b8 04 | 0d 01 ea 48 4d 55 4c 20 |work....|...HMUL |
|00000350| 20 20 20 20 20 77 6f 72 | 6b 2c 20 20 20 20 72 6f |     wor|k,    ro|
|00000360| 6f 74 2c 20 20 20 20 72 | 6f 6f 74 20 20 20 20 20 |ot,    r|oot     |
|00000370| 3b 77 6f 72 6b 20 6f 75 | 74 20 73 71 75 61 72 65 |;work ou|t square|
|00000380| 20 6f 66 20 67 75 65 73 | 73 65 64 20 72 6f 6f 74 | of gues|sed root|
|00000390| 0d 02 08 04 0d 02 12 32 | 43 4d 50 20 20 20 20 20 |.......2|CMP     |
|000003a0| 20 77 6f 72 6b 2c 20 20 | 20 20 76 61 6c 20 20 20 | work,  |  val   |
|000003b0| 20 20 20 3b 61 72 65 20 | 77 65 20 74 6f 6f 20 68 |   ;are |we too h|
|000003c0| 69 67 68 20 2e 2e 0d 02 | 1c 33 43 4d 50 47 45 20 |igh ....|.3CMPGE |
|000003d0| 20 20 20 64 69 72 2c 20 | 20 20 20 20 23 30 20 20 |   dir, |    #0  |
|000003e0| 20 20 20 20 20 3b 80 20 | 69 73 20 64 69 72 20 3e |     ;. |is dir >|
|000003f0| 20 30 20 28 3d 31 29 20 | 3f 0d 02 26 3d 4d 56 4e | 0 (=1) |?..&=MVN|
|00000400| 47 45 20 20 20 20 64 69 | 72 2c 20 20 20 20 20 23 |GE    di|r,     #|
|00000410| 30 20 20 20 20 20 20 20 | 3b 79 65 73 2c 20 73 65 |0       |;yes, se|
|00000420| 74 20 64 69 72 20 74 6f | 20 2d 31 20 28 2d 31 20 |t dir to| -1 (-1 |
|00000430| 3d 20 ac 20 30 29 0d 02 | 30 3b 4d 4f 56 47 45 20 |= . 0)..|0;MOVGE |
|00000440| 20 20 20 73 74 65 70 2c | 20 20 20 20 73 74 65 70 |   step,|    step|
|00000450| 2c 20 20 20 20 41 53 52 | 23 31 20 20 20 20 3b 61 |,    ASR|#1    ;a|
|00000460| 6e 64 20 68 61 6c 76 65 | 20 6f 75 72 20 73 74 65 |nd halve| our ste|
|00000470| 70 0d 02 3a 04 0d 02 44 | 31 43 4d 50 20 20 20 20 |p..:...D|1CMP    |
|00000480| 20 20 77 6f 72 6b 2c 20 | 20 20 20 76 61 6c 20 20 |  work, |   val  |
|00000490| 20 20 20 20 3b 61 72 65 | 20 77 65 20 74 6f 6f 20 |    ;are| we too |
|000004a0| 6c 6f 77 20 2e 2e 0d 02 | 4e 34 43 4d 50 4c 54 20 |low ....|N4CMPLT |
|000004b0| 20 20 20 64 69 72 2c 20 | 20 20 20 20 23 30 20 20 |   dir, |    #0  |
|000004c0| 20 20 20 20 20 3b 80 20 | 69 73 20 64 69 72 20 3c |     ;. |is dir <|
|000004d0| 20 30 20 28 3d 2d 31 29 | 20 3f 0d 02 58 31 4d 4f | 0 (=-1)| ?..X1MO|
|000004e0| 56 4c 54 20 20 20 20 64 | 69 72 2c 20 20 20 20 20 |VLT    d|ir,     |
|000004f0| 23 31 20 20 20 20 20 20 | 20 3b 79 65 73 2c 20 73 |#1      | ;yes, s|
|00000500| 65 74 20 64 69 72 20 74 | 6f 20 31 0d 02 62 3b 4d |et dir t|o 1..b;M|
|00000510| 4f 56 4c 54 20 20 20 20 | 73 74 65 70 2c 20 20 20 |OVLT    |step,   |
|00000520| 20 73 74 65 70 2c 20 20 | 20 20 41 53 52 23 31 20 | step,  |  ASR#1 |
|00000530| 20 20 20 3b 61 6e 64 20 | 68 61 6c 76 65 20 6f 75 |   ;and |halve ou|
|00000540| 72 20 73 74 65 70 0d 02 | 6c 04 0d 02 76 21 53 55 |r step..|l...v!SU|
|00000550| 42 53 20 20 20 20 20 63 | 6f 75 6e 74 2c 20 20 20 |BS     c|ount,   |
|00000560| 63 6f 75 6e 74 2c 20 20 | 20 23 31 0d 02 80 04 0d |count,  | #1.....|
|00000570| 02 8a 2b 43 4d 50 20 20 | 20 20 20 20 73 74 65 70 |..+CMP  |    step|
|00000580| 2c 20 20 20 20 23 30 20 | 20 20 20 20 20 20 3b 69 |,    #0 |      ;i|
|00000590| 73 20 73 74 65 70 20 3e | 20 30 0d 02 94 33 43 4d |s step >| 0...3CM|
|000005a0| 50 47 54 20 20 20 20 63 | 6f 75 6e 74 2c 20 20 20 |PGT    c|ount,   |
|000005b0| 23 30 20 20 20 20 20 20 | 20 3b 20 61 6e 64 20 69 |#0      | ; and i|
|000005c0| 73 20 63 6f 75 6e 74 20 | 3e 20 30 20 3f 0d 02 9e |s count |> 0 ?...|
|000005d0| 34 42 47 54 20 20 20 20 | 20 20 72 6f 6f 74 6c 6f |4BGT    |  rootlo|
|000005e0| 6f 70 20 20 20 20 20 20 | 20 20 20 20 3b 69 66 20 |op      |    ;if |
|000005f0| 62 6f 74 68 20 74 68 65 | 6e 20 6c 6f 6f 70 2e 2e |both the|n loop..|
|00000600| 2e 0d 02 a8 04 0d 02 b2 | 32 53 54 52 20 20 20 20 |........|2STR    |
|00000610| 20 20 72 6f 6f 74 2c 20 | 20 20 20 72 65 73 75 6c |  root, |   resul|
|00000620| 74 20 20 20 3b 20 66 6f | 72 20 42 41 53 49 43 20 |t   ; fo|r BASIC |
|00000630| 74 65 73 74 69 6e 67 0d | 02 bc 04 0d 02 c6 31 4d |testing.|......1M|
|00000640| 4f 56 20 20 20 20 20 20 | 50 43 2c 20 20 20 20 20 |OV      |PC,     |
|00000650| 20 6c 69 6e 6b 20 20 20 | 20 20 3b 74 65 72 6d 69 | link   |  ;termi|
|00000660| 6e 61 74 65 20 72 6f 75 | 74 69 6e 65 0d 02 d0 04 |nate rou|tine....|
|00000670| 0d 02 da 17 2e 72 65 73 | 75 6c 74 20 20 45 51 55 |.....res|ult  EQU|
|00000680| 44 20 20 20 20 20 30 0d | 02 e4 04 0d 02 ee 40 3b |D     0.|......@;|
|00000690| 6e 6f 74 65 20 74 68 65 | 20 75 73 65 20 6f 66 20 |note the| use of |
|000006a0| 64 6f 75 62 6c 65 20 43 | 4d 50 73 20 61 73 20 80 |double C|MPs as .|
|000006b0| 73 20 26 20 66 69 78 65 | 64 20 70 6f 69 6e 74 20 |s & fixe|d point |
|000006c0| 61 72 69 74 68 6d 61 74 | 69 63 2e 0d 02 f8 04 0d |arithmat|ic......|
|000006d0| 03 02 0a 5d ed 70 61 73 | 73 0d 03 0c 04 0d 03 0d |...].pas|s.......|
|000006e0| 25 f1 20 22 28 54 69 6d | 65 64 20 75 73 69 6e 67 |%. "(Tim|ed using|
|000006f0| 20 61 20 42 61 73 69 63 | 20 6c 6f 6f 70 29 2e 2e | a Basic| loop)..|
|00000700| 2e 22 0d 03 16 14 f1 20 | 22 54 69 6d 65 20 74 61 |."..... |"Time ta|
|00000710| 6b 65 6e 22 2c 3b 0d 03 | 20 04 0d 03 2a 07 d1 3d |ken",;..| ...*..=|
|00000720| 30 0d 03 34 38 e3 20 5a | 25 3d 31 20 b8 20 35 30 |0..48. Z|%=1 . 50|
|00000730| 30 30 3a 6e 75 6d 3d b3 | 28 32 5e 32 31 29 3a 41 |00:num=.|(2^21):A|
|00000740| 25 3d 32 3a 42 25 3d 6e | 75 6d 3a d6 20 67 65 74 |%=2:B%=n|um:. get|
|00000750| 72 6f 6f 74 3a ed 20 5a | 25 0d 03 3e 25 f1 20 a8 |root:. Z|%..>%. .|
|00000760| 28 28 91 2f 5a 25 29 2a | 31 30 2a 31 30 30 30 29 |((./Z%)*|10*1000)|
|00000770| 3b 22 b5 73 20 70 65 72 | 20 72 6f 6f 74 22 0d 03 |;".s per| root"..|
|00000780| 48 04 0d 03 52 41 6e 75 | 6d 3d b3 28 32 5e 32 39 |H...RAnu|m=.(2^29|
|00000790| 29 20 20 3a f4 20 77 65 | 27 72 65 20 75 73 69 6e |)  :. we|'re usin|
|000007a0| 67 20 61 63 63 25 20 62 | 69 74 73 20 66 6f 72 20 |g acc% b|its for |
|000007b0| 74 68 65 20 66 72 61 63 | 74 69 6f 6e 61 6c 20 70 |the frac|tional p|
|000007c0| 61 72 74 0d 03 5c 04 0d | 03 66 17 41 25 3d 32 20 |art..\..|.f.A%=2 |
|000007d0| 3a f4 20 73 71 75 61 72 | 65 20 72 6f 6f 74 0d 03 |:. squar|e root..|
|000007e0| 70 1b 42 25 3d 6e 75 6d | 20 3a f4 20 76 61 6c 75 |p.B%=num| :. valu|
|000007f0| 65 20 74 6f 20 72 6f 6f | 74 0d 03 7a 04 0d 03 84 |e to roo|t..z....|
|00000800| 0d d6 20 67 65 74 72 6f | 6f 74 0d 03 8e 04 0d 03 |.. getro|ot......|
|00000810| 98 27 f1 20 22 4f 72 69 | 67 69 6e 69 61 6c 20 6e |.'. "Ori|ginial n|
|00000820| 75 6d 62 65 72 20 20 22 | 3b 6e 75 6d 2f 28 32 5e |umber  "|;num/(2^|
|00000830| 61 63 63 25 29 0d 03 a2 | 31 f1 20 22 4d 43 20 72 |acc%)...|1. "MC r|
|00000840| 6f 6f 74 20 20 20 20 20 | 20 20 20 20 20 20 22 3b |oot     |      ";|
|00000850| 28 21 72 65 73 75 6c 74 | 29 2f 28 32 5e 28 61 63 |(!result|)/(2^(ac|
|00000860| 63 25 2f 32 29 29 0d 03 | ac 2a f1 20 22 42 41 53 |c%/2))..|.*. "BAS|
|00000870| 49 43 73 20 76 61 6c 75 | 65 20 20 20 20 20 20 22 |ICs valu|e      "|
|00000880| 3b b6 28 6e 75 6d 2f 28 | 32 5e 61 63 63 25 29 29 |;.(num/(|2^acc%))|
|00000890| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+